home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_CursOff.lha / CursOn.asm < prev    next >
Encoding:
Assembly Source File  |  1998-04-08  |  526 b   |  32 lines
  1. ; CursOn 1.2 : turn shell cursor on
  2. ; by Kyzer/CSG
  3. ; $VER: CursOn.asm 1.2 (08.04.98)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/dos_lib.i
  8.  
  9. CursOff    move.l    4.w,a6
  10.     lea    dosname(pc),a1
  11.     moveq    #32,d0
  12.     jsr    _LVOOpenLibrary(a6)
  13.     tst.l    d0
  14.     beq.s    .quit
  15.     move.l    d0,a6
  16.  
  17.     jsr    _LVOOutput(a6)
  18.     pea    $9B207000    ; 9B 20 70 (CSI SPC p) = cursor on
  19.     move.l    d0,d1
  20.     move.l    sp,d2
  21.     moveq    #3,d3
  22.     jsr    _LVOWrite(a6)
  23.     addq.l    #4,sp
  24.  
  25.     move.l    a6,a1
  26.     move.l    4.w,a6
  27.     jsr    _LVOCloseLibrary(a6)
  28. .quit    moveq    #0,d0
  29.     rts    
  30.  
  31. dosname    dc.b    'dos.library',0
  32.